unit Resources;

interface

uses gm_engine;

type
  TFontEnum = (ttFont1, ttFont2);
  TResEnum = (ttBack, ttFire, ttIce, ttSellCell, ttNSellCell, ttItemSlot, ttDoll, ttGold, ttIL,
    ttBackbar, ttLifebar, ttManabar, ttClose);

var
  Font: array [TFontEnum] of TFont;
  Resource: array [TResEnum] of TTexture;

const
  FontPath: array [TFontEnum] of string = (
  'mods\default\fonts\font.zfi',
  'mods\default\fonts\font2.zfi'
  );
  ResourcePath: array [TResEnum] of string = (
  'mods\core\sprites\back.png',
  'mods\core\sprites\fire.png',
  'mods\core\sprites\ice.png',
  'mods\core\sprites\glow.png',
  'mods\core\sprites\nglow.png',
  'mods\core\sprites\itemslot.png',
  'mods\core\sprites\doll.png',
  'mods\core\sprites\gold.png',
  'mods\core\sprites\il.png',
  'mods\core\sprites\backbar.png',
  'mods\core\sprites\lifebar.png',
  'mods\core\sprites\manabar.png',
  'mods\core\sprites\close.png'
  );

procedure Load;

implementation

procedure Load;
var
  I: TResEnum;
  J: TFontEnum;   
begin
  for I := Low(TResEnum) to High(TResEnum) do Resource[I] := LoadTexture(ResourcePath[I]);
  for J := Low(TFontEnum) to High(TFontEnum) do Font[J] := LoadFont(FontPath[J]);

  SetFrameSize(Resource[ttIL], 32, 32);
end;

end.
